Top 10k strings from Horizons (1982)(Sinclair Research)(16k)(Side B)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 d$="PSION
2 p$="STOP THE TAPE":
2 p$="START THE TAPE":
2 p$="PSION
2 mcode +
2 i$=f$(s,t):
2 height is even
2 f=f+f*d1*(1
2 f$(s,t)=" "
2 d$="STOP THE TAPE":
2 d$="STOP THE TAPE"
2 d$="Press any key to continue"
2 d$="PSION
2 d$=" START THE TAPE ":
2 c ,
2 ;"Press any key":
2 -j)*den+0.5
2 "montecarlo"
2 "evolution"
2 "character"
2 "bubblesort"
1 waves
1 wallg
1 wall
1 the 1st loop
1 t(tot)=t(tot)+1
1 t(tot)=140
1 t(tot)=135
1 t(tot)/sf+8
1 t$="445030344542434041906580"
1 t , the rabbit population increases by
1 single wave plot
1 sideb
1 set up screen
1 set up example
1 set up display
1 set up dice colours
1 set attr for shift move
1 scale time for plotting
1 s$="qmlobrncapOB"
1 s$(f)=s$(f+1
1 rescale rabbit axes
1 rescale fox axes
1 r=r+tau*r*(1
1 r=(ar - brf)
1 r$+i,r(i+1
1 r and foxes by
1 pause=pause*50
1 paper;paper;
1 p$="You went off the screen":
1 p$="What colour?":
1 p$="THRO' THE WALL":
1 p$="SCORE":
1 p$="Press y to play again":
1 p$="Press n to exit":
1 p$="Press any key":
1 p$="Press (n)o or colour number":
1 p$="PRESS ANY KEY":
1 p$="No such figure - try again":
1 p$="New ink colour?":
1 p$="NO ROOM":
1 p$="Is this the right one? (y/n)":
1 p$="Enter figure no. to be "+m$:
1 p$="DRAW":
1 p$="C FOR COMMANDS, Q TO QUIT"
1 p$="(d)elete (m)agnify or (s)hift":
1 p$="(""n"" if you aren't sure)":
1 p$=" Press any key to continue ":
1 p$=" ":
1 p H
1 p ,
1 p
1 n=card-s*13
1 n$(f)=n$(f+1
1 move cursor and set up
1 montecarlo
1 m$="painted":
1 m$="altered":
1 m$(q)*0.76
1 m ,
1 logo
1 life
1 j=b*a(n*x-256
1 j=(j+a*a(m*x-256
1 ic,x-a,y-b:
1 f=(cf - df/r)
1 f$(s,t)=i$:
1 f$(s,t)="O"
1 f$(s,t)="B"
1 f$(n-b)=f$(n):
1 evolution
1 draw clock
1 draw
1 d$="s-to stop r-to start again":
1 d$="q-to commence life":
1 d$="WAVES":
1 d$="Too many foxes-foxes starve ":
1 d$="There are now lots of foxes ":
1 d$="The cycle repeats every 6 years":
1 d$="START THE TAPE":
1 d$="SORT":
1 d$="Rabbit population decreases ":
1 d$="RABBITS":
1 d$="Press y to run again":
1 d$="Press any key":
1 d$="Press any key to continue":
1 d$="PSION
1 d$="Many rabbits-food for foxes ":
1 d$="MONTE CARLO"
1 d$="Loading waves":
1 d$="GENERATOR":
1 d$="Foxes are now short of food ":
1 d$="Fox population grows ":
1 d$="Few foxes-rabbit colony grows":
1 d$="FOXES":
1 d$="CHARACTER":
1 d$="BUBBLE":
1 d$="BEATING OF":
1 character h
1 char
1 c$(f)=c$(f+1
1 bubblesort#
1 bits
1 b1=b+(y-b)*c
1 a1=a+(x-a)*c:
1 Update high res chart
1 Update chart
1 Screen coords from x,y
1 Save on tape
1 STOP THE TAPE
1 Put r(8) into usr r$
1 Poll keyboard for cursor control keys
1 Plot theoretical graph
1 Pick up character
1 I$(j)=card
1 I$(g)<I$(g+1
1 I$(f)>I$(f+1
1 I$(f)=I$(f+1
1 Display user graphics
1 Design character
1 Created with Ramsoft MakeTZX
1 Clear lower screen
1 Change x,y as a function of c
1 ;"to stop."
1 ;"rabbits"
1 ;"press any key to start":
1 ;"any key";
1 ;"and the initial number of foxes is":
1 ;"a,b,c,d are constants"
1 ;"X = CURSOR";
1 ;"WAVE 2";
1 ;"WAVE 1";
1 ;"Two waves may be added together to form a third,more complex wave."''"If the frequencies of the two waves are fairly close,then a low frequency effect will occur,known as beating.This is most prominent when the amplitudes ofthe two waves are also close."
1 ;"The program will add two waves of your choice,emphasising the beat frequency in red (if it finds one!)."
1 ;"THE TAPE PRESS ANY KEY TO CONTINUE":
1 ;"THE TAPE PRESS ANY KEY TO CONTINUE"
1 ;"Swap?-yes":
1 ;"Swap?-yes (6>3)":
1 ;"Swap?-no (6<8)":
1 ;"Sorted-press y to run again"
1 ;"Rabbits increase by birth
1 ;"Rabbits are killed by foxes
1 ;"RABBITS":
1 ;"Press any key"
1 ;"Press any key for the Spectrum to solve this problem in time":
1 ;"Pass ";e:
1 ;"PRESS ANY KEY TO START"
1 ;"Over time
1 ;"Observed"
1 ;"O.K. START THE TAPE ":
1 ;"Get ready to move......."''" p to move right"''" o to move left"''" CAPS SHIFT for extra zip"
1 ;"Foxes increase by birth
1 ;"Foxes die from starvation
1 ;"Expected"
1 ;"Enter your own initial conditions to study the problem"
1 ;"DO YOU WANT TO TRY AGAIN (Y/N)?":
1 ;"Compare 8&2":
1 ;"Compare 6&8":
1 ;"Compare 6&3":
1 ;"AN EXAMPLE OF THE SOLUTION OF DIFFERENTIAL EQUATIONS":
1 ;"= 2400":
1 ;"2 3 4 5 6 7 8 9 10 11 12":
1 ;"+ = ORIGIN"''
1 ;") and foxes (number ":
1 ;"(Press y to continue or n to stop )"
1 ;" Notice that at the end of the first sort the largest number has""bubbled""to the end."
1 ;" An example now follows in whicha hand of cards is sorted in time by the Spectrum (to speed up the sorting keep any key pressed-except the BREAK key)."
1 ;" RESULTS"
1 ;" A SORTING ALGORITHM APPLIED TO A HAND OF CARDS"
1 ;" This is a BASIC program It illustrates how you can program your own real time games on the SPECTRUM using simple BASIC"
1 ;" ":
1 ;" ":
1 ;" "
1 ;"
1 ;"
1 7.Character Generator
1 6.Monte Carlo
1 3.Evolution
1 2.Bubblesort
1 1.Thro' The Wall
1 ,z;"p - paints all boxes & circles in a figure"
1 ,z;"a - alter (delete, shift or magnify)"
1 ,,,,,," Press any key to continue ":
1 ,,,,,," MONTE CARLO"
1 ,,,," This program uses the RND "
1 ,," Press any key to continue-":
1 ,," The board is divided up into "
1 ,," Each generation the number (n) of neighbours a cell has decides whether life will begin (n=3), survive (n=2 or 3),or die (n<2 or n>3)."
1 ,," RULES"
1 ,," It runs in two stages, "
1 ,," LIFE"
1 *r)+1000000
1 *paper+ink
1 (w*(t+x))))
1 (r*r-n*n):
1 (n-m)>(n+m)
1 ((x-a)*(x-a)+(y-b)*(y-b)))
1 '''"Press any key to continue.":
1 ''"Press any key to continue"
1 ''"Enter a to u"
1 '"This range includes serious business-type applications and games (both intellectual and not so intellectual)."
1 '"The programs on this cassette are largely written in BASIC to illustrate some of the things you can do."
1 '"Substantial machine-code programs from Sinclair by Psion will allow you to apply the Spectrum to its full capability."
1 '"For more details, see chapter 14of the Spectrum manual."''"Press any key to continue":
1 '"Enter a to u"''"or just press ENTER to skip."
1 '"E.g."'"a - to save character A bk - to save characters B to K"
1 '"CONTENTS FILE NAME"'
1 "would you like an example ?(y/n)";
1 "want to try again? (y/n) ";
1 "n - displays each figure with its sequence number"''"a - alter (delete, shift or magnify)"''"p - paints all boxes & circles in a figure"
1 "l - line from + to X"''"o - circle; centre +, radius + to X"''"b - box; + and X define diagonal"''
1 "frequency of wave 2?(4
1 "frequency of wave 1?(4
1 "amplitude of wave 2?(0
1 "amplitude of wave 1? (0
1 "Which user graphic?"
1 "Which character do you wish to pick up?"
1 "Use the arrow keys with or without CAPS SHIFT to move the flashing cursor about the grid."
1 "This is a program to aid the generation of user defined graphics characters."''"These characters have character codes from 144 to 164 inclusive and are normally entered by pressing keys a to u in graphicsmode."''"Characters generated by this routine can be saved on your owntape to be used at a later date by other programs, or to be modified by this program."
1 "The cursor square is filled-in when CAPS SHIFT is pressed and is cleared otherwise."
1 "S to save on tape"
1 "Q to quit"
1 "Press Q to quit."
1 "P to pick up a character"
1 "HORIZONS is an introductory cassette written by Psion for Sinclair."
1 "HORIZONS SIDE B"':
1 "Enter vertical (y) component"'" of shift ";b
1 "Enter the name of the code to be saved"
1 "Enter the character or characterrange that you wish to save"
1 "Enter starting number of rabbits (r between 4000 and 7000) ";
1 "Enter starting number of foxes (f between 100 and 400) ";
1 "Enter magnification factor ";c
1 "Enter horizontal (x) component"'" of shift ";a
1 "Enter colour no. for paper ";pc
1 "Enter colour no. for ink ";ik:
1 "C to clear and start again"
1 "A to alter the pattern"
1 "A number followed by an arrow (with CAPS SHIFT) moves X"''"m - moves +, starts a new figure"''
1 " when positioning a being."
1 " values (shown in green)"
1 " to stop."
1 " the initial behaviour and then"
1 " the cursor direction keys,"
1 " square has 8 neighbours, and"
1 " resulting probability"
1 " pressing the shift key as well"
1 " ones (shown in black)."
1 " on a larger scale to "
1 " of two dice, and displays the"
1 " function to simulate the fall"
1 " firstly on a small scale for"
1 " distribution on a bar chart."
1 " demonstrate how the observed"
1 " can be either alive or dead."
1 " approach (slowly) the expected"
1 " a square grid. Each unit "
1 " R to reinitialise and S"
1 " Press Q to start life, "
1 " 5 - 8 to move the cursor,"
1 " generations in seconds ? ";
1 " To set up initial beings use"
1 " The solution depends on the initial conditions . In the example that follows the initialnumber of rabbits is"
1 " One of the simplest ways of ordering a list of objects is through a ""Bubble Sort"". "
1 " Imagine a land area populated by two species say rabbits (number "
1 " Delay between"
1 " Being colour 0 - 7 ? ";
1 " Background colour ? ";
1 " A Bubble Sort operates by passing over the list many times and considering each pair of objects . The two objects are interchanged if they are out of order and the next pair are then considered. For example consider a set of four numbers as shown on the following page."
1 " ----"
1 " ":
1 " Mathematical equations of considerable subtlety can be solved on the Spectrum. An example of this is differential equations which describe the evolution of a system in time. Examples include problems in physics,chemistry,electronics, meteorology,etc. Foxes and rabbits is a classic example of equations of this kind applied to an ecological problem. Press any key":
1 THE TAPE ":
1 character"''"
1 start the tape
1 montecarlo"''"
1 bubblesort"''"
1 ,
1 wall"''"
1 evolution"''"
1 "
1 waves"'
1 life"'
1 draw"''"